xx <- seq(4, by=4, length.out = 17)
plot(xx %% 15, col=rainbow(2), pch=22,cex=c(2,3,4))
plot(xx %% 15, col=rainbow(2), pch=22,cex=c(2,3,4),  xlab="", ylab="")
